Public Class Atividade

    Private strId As String
    Private strDescricao As String
    Private strPremissa As String
    Private lstEstimativa As List(Of Estimativa)
    Private strObservacao As String
    Private strIdEscopo As String
    Private strIdUsuario As String

    Public Sub New(ByVal strDescricao As String, ByVal strPremissa As String, _
                    ByVal lstEstimativa As List(Of Estimativa), _
                    ByVal strId As String, ByVal strIdEscopo As String)
        Me.strDescricao = strDescricao
        Me.strPremissa = strPremissa
        Me.lstEstimativa = lstEstimativa
        Me.strId = strId
        Me.strIdEscopo = strIdEscopo
    End Sub

    Public Sub New(ByVal strDescricao As String, ByVal strPremissa As String, _
                ByVal lstEstimativa As List(Of Estimativa), _
                ByVal strId As String, ByVal strIdEscopo As String, ByVal strIdUsuario As String)
        Me.strDescricao = strDescricao
        Me.strPremissa = strPremissa
        Me.lstEstimativa = lstEstimativa
        Me.strId = strId
        Me.strIdEscopo = strIdEscopo
        Me.strIdUsuario = strIdUsuario
    End Sub

    Public Sub setDescricao(ByVal Descricao As String)
        strDescricao = Descricao
    End Sub

    Public Function getDescricao() As String
        getDescricao = strDescricao
    End Function

    Public Sub setPremissa(ByVal Premissa As String)
        strPremissa = Premissa
    End Sub

    Public Function getPremissa() As String
        getPremissa = strPremissa
    End Function

    Public Sub setEstimativas(ByVal Estimativas As List(Of Estimativa))
        lstEstimativa = Estimativas
    End Sub

    Public Function getEstimativas() As List(Of Estimativa)
        getEstimativas = lstEstimativa
    End Function

    Public Sub setId(ByVal Id As String)
        strId = Id
    End Sub

    Public Function getId() As String
        getId = strId
    End Function

    Public Sub setIdUsuario(ByVal IdUsuario As String)
        strIdUsuario = IdUsuario
    End Sub

    Public Function getIdUsuario() As String
        getIdUsuario = strIdUsuario
    End Function

    Public Sub setObservacao(ByVal Observacao As String)
        strObservacao = Observacao
    End Sub

    Public Function getObservacao() As String
        getObservacao = strObservacao
    End Function

    Public Sub setIdEscopo(ByVal IdEscopo As String)
        strIdEscopo = IdEscopo
    End Sub

    Public Function getIdEscopo() As String
        getIdEscopo = strIdEscopo
    End Function

    Public Property Descricao() As String
        Get
            Return Me.strDescricao
        End Get
        Set(ByVal Value As String)
            Me.strDescricao = Value
        End Set
    End Property

    Public Property Premissa() As String
        Get
            Return Me.strPremissa
        End Get
        Set(ByVal Value As String)
            Me.strPremissa = Value
        End Set
    End Property


    Public Property Id() As String
        Get
            Return Me.strId
        End Get
        Set(ByVal Value As String)
            Me.strId = Value
        End Set
    End Property

    Public Property IdEscopo() As String
        Get
            Return Me.strIdEscopo
        End Get
        Set(ByVal Value As String)
            Me.strIdEscopo = Value
        End Set
    End Property

    Public Property ListEstimativa() As List(Of Estimativa)
        Get
            Return Me.lstEstimativa
        End Get
        Set(ByVal Value As List(Of Estimativa))
            Me.lstEstimativa = Value
        End Set
    End Property


End Class
